home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / sim756_Fil2080928282007.psc / Source Code / fspForm1.frm < prev    next >
Text File  |  2007-05-18  |  20KB  |  606 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form fspForm1 
  4.    Appearance      =   0  'Flat
  5.    BackColor       =   &H80000005&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "fsp"
  8.    ClientHeight    =   5925
  9.    ClientLeft      =   2850
  10.    ClientTop       =   2925
  11.    ClientWidth     =   5715
  12.    Icon            =   "fspForm1.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   5925
  16.    ScaleWidth      =   5715
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.PictureBox hdr1 
  19.       Appearance      =   0  'Flat
  20.       BackColor       =   &H80000005&
  21.       ForeColor       =   &H80000008&
  22.       Height          =   855
  23.       Left            =   60
  24.       ScaleHeight     =   825
  25.       ScaleWidth      =   5580
  26.       TabIndex        =   38
  27.       Top             =   60
  28.       Width           =   5610
  29.       Begin VB.Label hdr2 
  30.          AutoSize        =   -1  'True
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "<hdr>"
  33.          BeginProperty Font 
  34.             Name            =   "Arial"
  35.             Size            =   21.75
  36.             Charset         =   0
  37.             Weight          =   400
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          Height          =   495
  43.          Left            =   120
  44.          TabIndex        =   39
  45.          Top             =   150
  46.          Width           =   1140
  47.       End
  48.    End
  49.    Begin MSComDlg.CommonDialog CommonDialog1 
  50.       Left            =   2640
  51.       Top             =   2760
  52.       _ExtentX        =   847
  53.       _ExtentY        =   847
  54.       _Version        =   393216
  55.    End
  56.    Begin VB.PictureBox p3 
  57.       Appearance      =   0  'Flat
  58.       BackColor       =   &H00FFFFFF&
  59.       BorderStyle     =   0  'None
  60.       ForeColor       =   &H80000008&
  61.       Height          =   4455
  62.       Left            =   -2400
  63.       ScaleHeight     =   4455
  64.       ScaleWidth      =   8115
  65.       TabIndex        =   13
  66.       Top             =   1500
  67.       Visible         =   0   'False
  68.       Width           =   8115
  69.       Begin VB.TextBox Text5 
  70.          Appearance      =   0  'Flat
  71.          BackColor       =   &H00F4F4F4&
  72.          BeginProperty Font 
  73.             Name            =   "Courier New"
  74.             Size            =   8.25
  75.             Charset         =   0
  76.             Weight          =   400
  77.             Underline       =   0   'False
  78.             Italic          =   0   'False
  79.             Strikethrough   =   0   'False
  80.          EndProperty
  81.          Height          =   3915
  82.          Left            =   2460
  83.          Locked          =   -1  'True
  84.          MultiLine       =   -1  'True
  85.          ScrollBars      =   3  'Both
  86.          TabIndex        =   35
  87.          Text            =   "fspForm1.frx":030A
  88.          Top             =   480
  89.          Width           =   5595
  90.       End
  91.       Begin VB.Label Label5 
  92.          AutoSize        =   -1  'True
  93.          BackColor       =   &H00FFFFFF&
  94.          Caption         =   "FileSplitter"
  95.          BeginProperty Font 
  96.             Name            =   "Arial"
  97.             Size            =   15.75
  98.             Charset         =   0
  99.             Weight          =   700
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          Height          =   360
  105.          Left            =   2520
  106.          TabIndex        =   37
  107.          Top             =   60
  108.          Width           =   1590
  109.       End
  110.       Begin VB.Label lblVersion 
  111.          AutoSize        =   -1  'True
  112.          BackColor       =   &H00FFFFFF&
  113.          Caption         =   "<Ver>"
  114.          Height          =   195
  115.          Left            =   4200
  116.          TabIndex        =   36
  117.          Top             =   180
  118.          Width           =   420
  119.       End
  120.    End
  121.    Begin VB.PictureBox Picture2 
  122.       BorderStyle     =   0  'None
  123.       Height          =   435
  124.       Left            =   60
  125.       ScaleHeight     =   435
  126.       ScaleWidth      =   5595
  127.       TabIndex        =   29
  128.       Top             =   1020
  129.       Width           =   5595
  130.       Begin VB.PictureBox Picture5 
  131.          Appearance      =   0  'Flat
  132.          BackColor       =   &H80000005&
  133.          BorderStyle     =   0  'None
  134.          ForeColor       =   &H80000008&
  135.          Height          =   615
  136.          Left            =   3620
  137.          ScaleHeight     =   615
  138.          ScaleWidth      =   105
  139.          TabIndex        =   34
  140.          Top             =   0
  141.          Width           =   100
  142.       End
  143.       Begin VB.PictureBox Picture6 
  144.          Appearance      =   0  'Flat
  145.          BackColor       =   &H80000005&
  146.          BorderStyle     =   0  'None
  147.          ForeColor       =   &H80000008&
  148.          Height          =   615
  149.          Left            =   1770
  150.          ScaleHeight     =   615
  151.          ScaleWidth      =   90
  152.          TabIndex        =   33
  153.          Top             =   0
  154.          Width           =   90
  155.       End
  156.       Begin VB.OptionButton Option1 
  157.          Appearance      =   0  'Flat
  158.          BackColor       =   &H00F4F4F4&
  159.          Caption         =   "About"
  160.          ForeColor       =   &H80000008&
  161.          Height          =   555
  162.          Index           =   2
  163.          Left            =   3660
  164.          Style           =   1  'Graphical
  165.          TabIndex        =   30
  166.          Top             =   -60
  167.          Width           =   1995
  168.       End
  169.       Begin VB.OptionButton Option1 
  170.          Appearance      =   0  'Flat
  171.          BackColor       =   &H00F4F4F4&
  172.          Caption         =   "Merge File"
  173.          ForeColor       =   &H80000008&
  174.          Height          =   555
  175.          Index           =   1
  176.          Left            =   1800
  177.          Style           =   1  'Graphical
  178.          TabIndex        =   31
  179.          Top             =   -60
  180.          Width           =   1875
  181.       End
  182.       Begin VB.OptionButton Option1 
  183.          Appearance      =   0  'Flat
  184.          BackColor       =   &H00C9C9C9&
  185.          Caption         =   "Split File"
  186.          ForeColor       =   &H80000008&
  187.          Height          =   555
  188.          Index           =   0
  189.          Left            =   -60
  190.          Style           =   1  'Graphical
  191.          TabIndex        =   32
  192.          Top             =   -60
  193.          Value           =   -1  'True
  194.          Width           =   1875
  195.       End
  196.    End
  197.    Begin VB.PictureBox p2 
  198.       Appearance      =   0  'Flat
  199.       BackColor       =   &H80000005&
  200.       BorderStyle     =   0  'None
  201.       ForeColor       =   &H80000008&
  202.       Height          =   4395
  203.       Left            =   60
  204.       ScaleHeight     =   4395
  205.       ScaleWidth      =   5595
  206.       TabIndex        =   12
  207.       Top             =   1500
  208.       Visible         =   0   'False
  209.       Width           =   5595
  210.       Begin VB.CommandButton Command6 
  211.          Caption         =   "..."
  212.          Height          =   315
  213.          Left            =   5040
  214.          Style           =   1  'Graphical
  215.          TabIndex        =   23
  216.          Top             =   960
  217.          Width           =   315
  218.       End
  219.       Begin VB.CommandButton Command4 
  220.          Caption         =   "..."
  221.          Height          =   315
  222.          Left            =   5040
  223.          Style           =   1  'Graphical
  224.          TabIndex        =   14
  225.          Top             =   360
  226.          Width           =   315
  227.       End
  228.       Begin VB.TextBox Text4 
  229.          Appearance      =   0  'Flat
  230.          Height          =   315
  231.          Left            =   180
  232.          TabIndex        =   22
  233.          Top             =   960
  234.          Width           =   4875
  235.       End
  236.       Begin VB.PictureBox Picture3 
  237.          Appearance      =   0  'Flat
  238.          BackColor       =   &H00EBEBEB&
  239.          ForeColor       =   &H80000008&
  240.          Height          =   315
  241.          Left            =   180
  242.          ScaleHeight     =   285
  243.          ScaleWidth      =   5145
  244.          TabIndex        =   18
  245.          Top             =   2040
  246.          Width           =   5175
  247.          Begin VB.PictureBox c7 
  248.             Appearance      =   0  'Flat
  249.             BackColor       =   &H80000003&
  250.             BorderStyle     =   0  'None
  251.             ForeColor       =   &H80000008&
  252.             Height          =   315
  253.             Left            =   0
  254.             ScaleHeight     =   315
  255.             ScaleWidth      =   15
  256.             TabIndex        =   28
  257.             Top             =   0
  258.             Width           =   15
  259.          End
  260.       End
  261.       Begin VB.CommandButton Command5 
  262.          BackColor       =   &H00FFFFFF&
  263.          Caption         =   "Merge"
  264.          Height          =   375
  265.          Left            =   3900
  266.          TabIndex        =   17
  267.          Top             =   1500
  268.          Width           =   1455
  269.       End
  270.       Begin VB.TextBox Text3 
  271.          Appearance      =   0  'Flat
  272.          Height          =   315
  273.          Left            =   180
  274.          TabIndex        =   15
  275.          Top             =   360
  276.          Width           =   4875
  277.       End
  278.       Begin VB.Label Label8 
  279.          AutoSize        =   -1  'True
  280.          BackStyle       =   0  'Transparent
  281.          Caption         =   "Merge location"
  282.          Height          =   195
  283.          Left            =   180
  284.          TabIndex        =   24
  285.          Top             =   720
  286.          Width           =   1155
  287.       End
  288.       Begin VB.Label Label6 
  289.          AutoSize        =   -1  'True
  290.          BackStyle       =   0  'Transparent
  291.          Caption         =   "Merge progress"
  292.          Height          =   195
  293.          Left            =   180
  294.          TabIndex        =   19
  295.          Top             =   1800
  296.          Width           =   1095
  297.       End
  298.       Begin VB.Label Label4 
  299.          AutoSize        =   -1  'True
  300.          BackStyle       =   0  'Transparent
  301.          Caption         =   "Select <filename>.spi (merge info)"
  302.          Height          =   195
  303.          Left            =   180
  304.          TabIndex        =   16
  305.          Top             =   120
  306.          Width           =   2370
  307.       End
  308.    End
  309.    Begin VB.PictureBox P1 
  310.       Appearance      =   0  'Flat
  311.       BackColor       =   &H80000005&
  312.       BorderStyle     =   0  'None
  313.       ForeColor       =   &H80000008&
  314.       Height          =   4395
  315.       Left            =   60
  316.       ScaleHeight     =   4395
  317.       ScaleWidth      =   5595
  318.       TabIndex        =   0
  319.       Top             =   1500
  320.       Width           =   5595
  321.       Begin VB.OptionButton Option4 
  322.          Appearance      =   0  'Flat
  323.          BackColor       =   &H80000005&
  324.          Caption         =   "Make a dos batch script to merge file (312 Bytes)"
  325.          Enabled         =   0   'False
  326.          ForeColor       =   &H80000008&
  327.          Height          =   255
  328.          Left            =   300
  329.          TabIndex        =   26
  330.          Top             =   2700
  331.          Width           =   4200
  332.       End
  333.       Begin VB.OptionButton Option5 
  334.          Appearance      =   0  'Flat
  335.          BackColor       =   &H80000005&
  336.          Caption         =   "Make a PE (exe) module to merge file ( .......Bytes)"
  337.          Enabled         =   0   'False
  338.          ForeColor       =   &H80000008&
  339.          Height          =   255
  340.          Left            =   300
  341.          TabIndex        =   25
  342.          Top             =   2400
  343.          Value           =   -1  'True
  344.          Width           =   4700
  345.       End
  346.       Begin VB.PictureBox Picture4 
  347.          Appearance      =   0  'Flat
  348.          BackColor       =   &H00EBEBEB&
  349.          ForeColor       =   &H80000008&
  350.          Height          =   315
  351.          Left            =   180
  352.          ScaleHeight     =   285
  353.          ScaleWidth      =   5145
  354.          TabIndex        =   20
  355.          Top             =   3840
  356.          Width           =   5175
  357.          Begin VB.PictureBox c6 
  358.             Appearance      =   0  'Flat
  359.             BackColor       =   &H80000003&
  360.             BorderStyle     =   0  'None
  361.             ForeColor       =   &H80000008&
  362.             Height          =   315
  363.             Left            =   0
  364.             ScaleHeight     =   315
  365.             ScaleWidth      =   15
  366.             TabIndex        =   27
  367.             Top             =   0
  368.             Width           =   15
  369.          End
  370.       End
  371.       Begin VB.ComboBox Combo1 
  372.          Appearance      =   0  'Flat
  373.          Height          =   315
  374.          ItemData        =   "fspForm1.frx":50D7
  375.          Left            =   180
  376.          List            =   "fspForm1.frx":50F6
  377.          TabIndex        =   10
  378.          Text            =   "1.44 MB"
  379.          Top             =   1620
  380.          Width           =   1935
  381.       End
  382.       Begin VB.Frame Frame1 
  383.          Appearance      =   0  'Flat
  384.          BackColor       =   &H80000005&
  385.          ForeColor       =   &H80000008&
  386.          Height          =   975
  387.          Left            =   180
  388.          TabIndex        =   9
  389.          Top             =   2100
  390.          Width           =   5175
  391.          Begin VB.CheckBox Check2 
  392.             Appearance      =   0  'Flat
  393.             BackColor       =   &H80000005&
  394.             Caption         =   "Make merging module otherwise *.spi will be made"
  395.             ForeColor       =   &H80000008&
  396.             Height          =   315
  397.             Left            =   120
  398.             TabIndex        =   11
  399.             Top             =   -60
  400.             Width           =   3900
  401.          End
  402.       End
  403.       Begin VB.CommandButton Command3 
  404.          BackColor       =   &H00FFFFFF&
  405.          Caption         =   "Split"
  406.          Height          =   375
  407.          Left            =   3900
  408.          TabIndex        =   8
  409.          Top             =   3240
  410.          Width           =   1455
  411.       End
  412.       Begin VB.CommandButton Command2 
  413.          Caption         =   "..."
  414.          Height          =   315
  415.          Left            =   5040
  416.          Style           =   1  'Graphical
  417.          TabIndex        =   7
  418.          Top             =   360
  419.          Width           =   315
  420.       End
  421.       Begin VB.CommandButton Command1 
  422.          Caption         =   "..."
  423.          Height          =   315
  424.          Left            =   5040
  425.          Style           =   1  'Graphical
  426.          TabIndex        =   6
  427.          Top             =   960
  428.          Width           =   315
  429.       End
  430.       Begin VB.TextBox Text2 
  431.          Appearance      =   0  'Flat
  432.          Height          =   315
  433.          Left            =   180
  434.          TabIndex        =   4
  435.          Top             =   960
  436.          Width           =   4875
  437.       End
  438.       Begin VB.TextBox Text1 
  439.          Appearance      =   0  'Flat
  440.          Height          =   315
  441.          Left            =   180
  442.          TabIndex        =   2
  443.          Top             =   360
  444.          Width           =   4875
  445.       End
  446.       Begin VB.Label Label7 
  447.          AutoSize        =   -1  'True
  448.          BackStyle       =   0  'Transparent
  449.          Caption         =   "Split progress"
  450.          Height          =   195
  451.          Left            =   180
  452.          TabIndex        =   21
  453.          Top             =   3600
  454.          Width           =   945
  455.       End
  456.       Begin VB.Label Label3 
  457.          AutoSize        =   -1  'True
  458.          BackStyle       =   0  'Transparent
  459.          Caption         =   "Per splited file size"
  460.          Height          =   195
  461.          Left            =   180
  462.          TabIndex        =   5
  463.          Top             =   1380
  464.          Width           =   1290
  465.       End
  466.       Begin VB.Label Label2 
  467.          AutoSize        =   -1  'True
  468.          BackStyle       =   0  'Transparent
  469.          Caption         =   "To: (Folder)"
  470.          Height          =   195
  471.          Left            =   180
  472.          TabIndex        =   3
  473.          Top             =   720
  474.          Width           =   810
  475.       End
  476.       Begin VB.Label Label1 
  477.          AutoSize        =   -1  'True
  478.          BackStyle       =   0  'Transparent
  479.          Caption         =   "From: (File)"
  480.          Height          =   195
  481.          Left            =   180
  482.          TabIndex        =   1
  483.          Top             =   120
  484.          Width           =   765
  485.       End
  486.    End
  487. End
  488. Attribute VB_Name = "fspForm1"
  489. Attribute VB_GlobalNameSpace = False
  490. Attribute VB_Creatable = False
  491. Attribute VB_PredeclaredId = True
  492. Attribute VB_Exposed = False
  493. '====================================================================================
  494. 'THE FILESPLITTER
  495. '====================================================================================
  496. '
  497. 'This program is free software; you can redistribute it and/or modify
  498. 'it under the terms of the GNU General Public License as published by
  499. 'the Free Software Foundation; either version 2 of the License, or
  500. '(at your option) any later version.
  501. '
  502. 'For the first time this software is written by,
  503. 'Sadequl Islam Mithun 756
  504. '<sim756@gmail.com>
  505. '<http://sim756.googlepages.com
  506. '
  507. 'DEVELOPER(S)
  508. '<NAME>
  509. '<EMAIL>
  510. '<WEB>
  511. '
  512. '====================================================================================
  513.  
  514. Private Sub Check2_Click()
  515.     Option4.Enabled = Check2.Value
  516.     Option5.Enabled = Check2.Value
  517. End Sub
  518.  
  519. Private Sub HScroll1_Change()
  520.     Text3.Text = HScroll1.Value
  521. End Sub
  522.  
  523. Private Sub Command1_Click()
  524.     SelFolder Me.hWnd, "Select any Driver or Folder to move the splitted files", 0
  525. End Sub
  526.  
  527. Private Sub Command2_Click()
  528.     CommonDialog1.FileName = ""
  529.     CommonDialog1.Filter = "All Files(*.*)|*.*"
  530.     CommonDialog1.ShowOpen
  531.     If CommonDialog1.FileName <> "" Then Text1.Text = CommonDialog1.FileName
  532. End Sub
  533.  
  534. Private Sub Command3_Click()
  535.     c6.Width = 0
  536.     Dim pr1 As String, pr2 As String, pr3 As Long
  537.     pr1 = Text1.Text
  538.     pr2 = Text2.Text
  539.     Dim ar() As String
  540.     ar = Split(Combo1.Text, " ")
  541.     If LCase(ar(1)) = "byte" Then pr3 = CLng(ar(0))
  542.     If LCase(ar(1)) = "kb" Then pr3 = Val(ar(0)) * 1024
  543.     If LCase(ar(1)) = "mb" Then pr3 = Val(ar(0)) * 1024 * 1024
  544.     If LCase(ar(1)) = "gb" Then pr3 = Val(ar(0)) * 1024 * 1024 * 1024
  545.     fspFunction.fsp pr1, pr2, pr3
  546. End Sub
  547.  
  548. Private Sub Command4_Click()
  549.     CommonDialog1.FileName = ""
  550.     CommonDialog1.Filter = "Splitted file information (*.spi)|*.spi"
  551.     CommonDialog1.ShowOpen
  552.     If CommonDialog1.FileName <> "" Then Text3.Text = CommonDialog1.FileName
  553. End Sub
  554.  
  555. Private Sub Command5_Click()
  556.     c7.Width = 0
  557.     Dim pr1 As String, pr2 As String
  558.     pr1 = Text3.Text
  559.     pr2 = Text4.Text
  560.     fspmk pr1, pr2
  561. End Sub
  562.  
  563. Private Sub Command6_Click()
  564.     SelFolder Me.hWnd, "Select any Driver or Folder to marge", 1
  565. End Sub
  566.  
  567. Private Sub Form_Load()
  568.     Me.Caption = "FileSplitter " & App.Major & "." & App.Minor & "." & App.Revision
  569.     hdr2.Caption = Me.Caption
  570.     c6.Width = 0
  571.     c7.Width = 0
  572.     lblVersion.Caption = App.Major & "." & App.Minor & "." & App.Revision
  573. End Sub
  574.  
  575. Private Sub Option1_Click(Index As Integer)
  576.     If Option1(0).Value Then
  577.         P1.Visible = True
  578.         Option1(0).BackColor = &HC9C9C9
  579.         Option1(1).BackColor = &HF4F4F4
  580.         Option1(2).BackColor = &HF4F4F4
  581.         p2.Visible = False
  582.         p3.Visible = False
  583.     End If
  584.     If Option1(1).Value Then
  585.         P1.Visible = False
  586.         p2.Visible = True
  587.         Option1(0).BackColor = &HF4F4F4
  588.         Option1(1).BackColor = &HC9C9C9
  589.         Option1(2).BackColor = &HF4F4F4
  590.         p3.Visible = False
  591.     End If
  592.     If Option1(2).Value Then
  593.         P1.Visible = False
  594.         p2.Visible = False
  595.         p3.Visible = True
  596.         Option1(0).BackColor = &HF4F4F4
  597.         Option1(1).BackColor = &HF4F4F4
  598.         Option1(2).BackColor = &HC9C9C9
  599.     End If
  600. End Sub
  601.  
  602. Private Sub Form_Unload(Cancel As Integer)
  603.     End
  604. End Sub
  605.  
  606.